home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 579 / program / procdure / file_sel.lst < prev    next >
Encoding:
File List  |  1992-01-25  |  386 b   |  18 lines
  1. PROCEDURE file_select(VAR file$)
  2.   LOCAL xa$
  3.   IF LEFT$(file$)<>"."
  4.     file$=".*"
  5.   ENDIF
  6.   file$=CHR$(GEMDOS(25)+65)+":"+DIR$(0)+"\*"+file$
  7.   FILESELECT file$,"",file$
  8.   IF EXIST(file$)
  9.     xa$=file$
  10.     IF MID$(file$,2,1)=":"
  11.       CHDRIVE LEFT$(file$,2)
  12.       xa$=RIGHT$(file$,LEN(file$)-2)
  13.     ENDIF
  14.     xa$=LEFT$(xa$,RINSTR(xa$,"\"))
  15.     CHDIR xa$
  16.   ENDIF
  17. RETURN
  18.